* lisp/emacs-lisp/package.el (list-packages): Avoid redundant generate

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index dac70af961614edfe4bf84e8bd60ddec031c829a..ded2faa54f63bec2ca2840baeff12b3606c9e457 100644 (file)
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -2951,7 +2951,9 @@ The list is displayed in a buffer named `*Packages*'."
       ;; Fetch the remote list of packages.
       (unless no-fetch (package-menu-refresh))
 
-      (package-menu--generate nil t))
+      ;; If we're not async, this would be redundant.
+      (when package-menu-async
+        (package-menu--generate nil t)))
     ;; The package menu buffer has keybindings.  If the user types
     ;; `M-x list-packages', that suggests it should become current.
     (switch-to-buffer buf)))